home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D03.D64 / save code (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  544 b   |  18 lines
  1. 0 FORT=0TO20:GETA$:NEXT
  2. 1 R=R+1:IFR=1THENLOAD"MULTIPLEXOR",8,1
  3. 10 PRINT"[147]";
  4. 20 POKE53280,0:POKE53281,0
  5. 30 PRINT"[147][151]             THE CODE SAVER             "
  6. 31 INPUT"PRESS RETURN WHEN CORRECT DISK IS IN    DRIVE[144]";A$
  7. 40 INPUT"[151]INPUT NAME TO SAVE CODE  MULTIPLEXOR[157][157][157][157][157][157][157][157][157][157][157][157][157]";N$
  8. 50 INPUT"INPUT DEVICE YOU WISH TO SAVE TO  8[157][157][157]";D
  9. 60 INPUT"IS THE ABOVE O.K. (Y/N)";A$
  10. 61 IFA$="N"THEN30
  11. 62 IFD<>1THENOPEN1,D,0,N$:GET#1,A$:IFA$="[199]"THEN70
  12. 63 PRINT"FILE EXISTS. DO I REPLACE (Y/N)"
  13. 64 INPUTA$
  14. 65 IFA$="N"THEN30
  15. 70 CLOSE1:SYS57812N$,D
  16. 80 POKE193,0:POKE194,192:POKE174,0:POKE175,199
  17. 90 SYS62957:S$="MENU":LOAD"RTU",8,1
  18.